on translate_cursor me, setting, image, mask, custom
if custom then
set val = [ member image, member mask ]
return val
end if
return setting
end
---
on beginSprite me
set oldcursor = the cursor of sprite the spritenum of me
set val = translate_cursor( me, the incursSet of me,customImage,customMask,useCustom )
set the cursor of sprite the spriteNum of me = val
end
on endsprite me
set the cursor of sprite the spriteNum of me = oldcursor
end
on getPropertyDescriptionList
set p_list = [ ¼
#incursSet: [ #comment: "Pointer Image:", ¼
#format: #cursor, ¼
#default: 1], ¼
#useCustom: [ #comment: "Use Custom Pointer:", ¼
#format: #boolean, ¼
#default: FALSE ], ¼
#customImage: [ #comment: "Custom Image:", ¼
#format: #bitmap, ¼
#default: member 1 ], ¼
#customMask: [ #comment: "Custom Mask:", ¼
#format: #bitmap, ¼
#default: member 1 ] ¼
]
return p_list
end
on getBehaviorDescription
return ¼
"Changes the pointer image when the pointer rolls over the current sprite. Choose one of the pointers included with Director, or specify a 1-bit bitmapped cast member." & RETURN & ¼
"PARAMETERS:" & RETURN & ¼
"ò Pointer Image - Choose one of Director's included pointers." & RETURN & ¼
"ò Use Custom Pointer - Turn this option on to specify a cast member instead of an included pointer." & RETURN & ¼
"ò Custom Image - ( optional ) Choose a cast member to use as the pointer image. This choice is ignored unless Use Custom Pointer is on." & RETURN & ¼
"ò Custom Mask - ( optional ) Choose a cast member to use as mask image."
